home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH09.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  512 b   |  16 lines
  1. 10  '***********************************************
  2. 20  '**       GRAPH09   -   FAMILY OF SINES       **
  3. 30  '**                                           **
  4. 40  '**  VERSION 1.1                14 JULY 1982  **
  5. 50  '***********************************************
  6. 60  CLS : SCREEN 2 : KEY OFF
  7. 70  LINE (628,199)-(1,199)
  8. 80  FOR X = 5 TO 198 STEP 5
  9. 90  LINE (1,199)-(1,199)
  10. 100  FOR XAXIS = 1 TO 628 STEP 1
  11. 110  NEWAXIS = XAXIS * 0.01
  12. 120  SINVAL = ABS(SIN(NEWAXIS)) * -X + 199
  13. 130  PSET (XAXIS,SINVAL)
  14. 140  NEXT XAXIS,X
  15. 150  GOTO 150
  16.